En este capítulo haremos nuestro primer programa que será bastante sencillo. Consistirá en que cuando hagamos click en un botón nos salga una ventana que contenga un texto a elección vuestra, y también cambiaremos el color de fondo del programa con la propiedad "Backcolor" y el nombre de la ventana con la propiedad "Caption". Una vez informados del contenido del capítulo, ¡Empecemos!
Pues si le damos 2 veces al formulario que como explicábamos en el capítulo anterior era la pestaña que nos salía como "con puntitos", nos saldrá otra ventana donde vamos a definir las propiedades del programa.
Por defecto nos saldrá Private Sub Form_Load() y abajo End Sub, los cuales harán cargar el programa.
Aquí vamos a poner las propiedades como el color de fondo, y el nombre que saldrá en la ventana del programa.
Escribiremos entre las dos frases lo siguiente:
BackColor = vbBlue
Al escribir esto hacemos lo siguiente:
Lo mismo que hemos usado el color azul predeterminado, podemos poner vbYellow, vbRed...
También si quieres experimentar y tener más variedad de colores, puedes poner en vez de vb seguido del color, poner RGB(0, 0, 0) donde los 0 son sustituidos por los números equivalentes al color en rgb.
Esos números los puedes obtener de este generador:
Puedes mover el circulito por los colores y los números que aparecen en la primera fila de R: Número G: Número y B: Número son lo que sustituirás por los 0.
Ahora cambiaremos el nombre que aparece aquí en el programa:
Añadimos debajo de la propiedad backcolor, Caption = "el nombre que queramos", si el nombre fuera un número puede ir sin comillas.
Y finalmente nos encargamos ahora de la caja de texto que saldrá cuando pulsemos un botón.
Nos ocupamos de la parte estética primero:
1- Seleccionamos esa herramienta.
2- Con la herramienta seleccionada haz un botón a la medida que más te guste.
3- Con la propiedad caption de aquí teniendo el botón que hemos creado seleccionado podemos cambiar el nombre del botón.
4- Esto no es el nombre del botón, es con el que nos vamos a referir al botón a la hora de poner código sobre este. Por ejemplo, en este caso se llama command1, pues si en el form_load ponemos command1.caption = "nombre del boton" cambiaremos el nombre de este. Esto es aparte otra manera de ponerle el nombre al botón que no es la del paso número 3.
Una vez construida la parte estética de nuestra aplicación, procederemos con lo siguiente:
Dándole 2 clicks al botón que hemos creado nos aparecerá la ventana de propiedades en la que se nos habrá añadido el siguiente texto por defecto: Private Sub Command1_Click() End Sub la cual nos indica la acción que realizará el botón cuando pulsemos sobre este en la aplicación.
Aquí añadiremos lo que queríamos hacer desde un principio, hacer que nos salte una ventana con un mensaje. Para llevar esta acción acabo pondremos el siguiente código entre el otro que nos había salido (Private Sub Command1_Click() End Sub), MsgBox ("Mensaje a elegir") tal que nos quede todo así:
Private Sub Command1_Click()
MsgBox ("Mensaje a elegir")
End Sub
Y bueno obtendremos un resultado parecido a este:
Animo a la gente a que no solo siga el tutorial y copie y pegue todos los códigos, si no que también intentéis experimentar.
Dejo el código por si queréis consultar o tenéis dudas:
Private Sub Command1_Click()
MsgBox ("Mensaje a elegir")
End Sub
Private Sub Form_Load()
BackColor = RGB(99, 99, 33)
Caption = "Capítulo 1"
Command1.Caption = "Nombre del botón"
End Sub
Puedes continuar con el siguiente tutorial haciendo click este botón:
Un saludo.
No hay comentarios:
Publicar un comentario